home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / gt1300_1.arc / PCPMENU.SCR < prev    next >
Encoding:
Text File  |  1987-02-13  |  2.1 KB  |  116 lines
  1. CLEAR
  2. WRITELN "PC Pursuit Menu"
  3. WRITELN "───────────────"
  4. WRITELN " 1.  Atlanta"
  5. WRITELN " 2.  Boston"
  6. WRITELN " 3.  Chicago"
  7. WRITELN " 4.  Dallas"
  8. WRITELN " 5.  Denver"
  9. WRITELN " 6.  Detroit"
  10. WRITELN " 7.  Houston"
  11. WRITELN " 8.  Los Angeles"
  12. WRITELN " 9.  Newark"
  13. WRITELN "10.  New York"
  14. WRITELN "11.  Philadelphia"
  15. WRITELN "12.  San Francisco"
  16. WRITELN "13.  Seattle"
  17. WRITELN "14.  Washington D.C."
  18. WRITELN "15.  Hangup."
  19. WRITELN
  20. WRITE   "Enter your choice: "
  21. READLN V1
  22. FLUSH
  23. CASE %1 OF
  24.  = 1
  25.    SEND "C DIAL404/12,"
  26.    V2 = ATLANTA
  27.  = 2
  28.    SEND "C DIAL617/12,"
  29.    V2 = BOSTON
  30.  = 3
  31.    SEND "C DIAL312/12,"
  32.    V2 = CHICAGO
  33.  = 4
  34.    SEND "C DIAL214/12,"
  35.    V2 = DALLAS
  36.  = 5
  37.    SEND "C DIAL303/12,"
  38.    V2 = DENVER
  39.  = 6
  40.    SEND "C DIAL313/12,"
  41.    V2 = DETROIT
  42.  = 7
  43.    SEND "C DIAL713/12,"
  44.    V2 = HOUSTON
  45.  = 8
  46.    SEND "C DIAL213/12,"
  47.    V2 = "LOS ANGELES"
  48.  = 9
  49.    SEND "C DIAL201/12,"
  50.    V2 = NEWARK
  51.  = 10
  52.    SEND "C DIAL212/12,"
  53.    V2 = "NEW YORK"
  54.  = 11
  55.    SEND "C DIAL215/12,"
  56.    V2 = PHILADELPHIA
  57.  = 12
  58.    SEND "C DIAL415/12,"
  59.    V2 = "SAN FRANCISCO"
  60.  = 13
  61.    SEND "C DIAL206/12,"
  62.    V2 = SEATTLE
  63.  = 14
  64.    SEND "C DIAL202/12,"
  65.    V2 = "WASHINGTON, D.C."
  66.  = 15
  67.    SENDLN "HANGUP"
  68.    QUIT
  69.  ?
  70.    WRITELN
  71.    BEEP
  72.    WRITELN "Your only choices are 1 thru 15."
  73.    TWAIT 1000
  74.    CYCLE 100 TIMES
  75. ESAC
  76. SENDLN %3
  77. WAIT FOR "WORD ="
  78. SENDLN %4
  79. GETLN V9
  80. CASE %9 OF
  81.  ~ CONNECT
  82.    SENDLN "ATZ"
  83.    WAIT FOR "OK"
  84.    CLEAR
  85.    WRITE "You are now connected to "
  86.    WRITE %2
  87.    WRITELN "."
  88.    WRITELN
  89.    WRITELN "Press Alt-X to return to the script."
  90.    WRITELN
  91.    ONLINE
  92.    CLEAR
  93.    WRITELN "This is the PC Pursuit script.  Waiting for @ from Telenet."
  94.    WRITELN "Enter ^K to break out, if the connection with Telenet is lost."
  95.    SENDLN "@"
  96.    WAIT FOR "@"
  97.    SENDLN "D"
  98.    WAIT FOR "DISCONN"
  99.    WAIT FOR "@"
  100.    CYCLE 100 TIMES
  101.  ~ BUSY
  102.    WRITELN
  103.    WRITE "Cannot connect with "
  104.    WRITE %2
  105.    WRITELN ", it is BUSY!"
  106.    V2 = "NO CITY"
  107.    WAIT FOR "@"
  108.    TWAIT 4000
  109.    CYCLE 100 TIMES
  110.  ?
  111.    WRITELN
  112.    WRITE "TELENET response unrecognized :"
  113.    WRITELN %9
  114.    WRITELN
  115. ESAC
  116.